
 
 B u t t o n   1   T e x t   " B 1 " 
 
 
 
 
 
 K e y   U p   G o s u b   I n c r e m e n t 
 
 K e y   D o w n   G o s u b   D e c r e m e n t 
 
 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 
 
 v 1   =   5 
 
 G o s u b   S e t F l a s h i n g S p e e d 
 
 
 
 S t o p 
 
 
 
 L a b e l   S e t F l a s h i n g S p e e d 
 
 	 S e l e c t   v 1 
 
 	 	 C a s e   1 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 1   B l u e   Y e l l o w 
 
 	 	 C a s e   2 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 2   B l u e   Y e l l o w 
 
 	 	 C a s e   3 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 3   B l u e   Y e l l o w 
 
 	 	 C a s e   4 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 4   B l u e   Y e l l o w 
 
 	 	 C a s e   5 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 5   B l u e   Y e l l o w 
 
 	 	 C a s e   6 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 6   B l u e   Y e l l o w 
 
 	 	 C a s e   7 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 7   B l u e   Y e l l o w 
 
 	 	 C a s e   8 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 8   B l u e   Y e l l o w 
 
 	 	 C a s e   9 
 
 	 	 	 B u t t o n   B 1   C o l o r   F l a s h i n g 9   B l u e   Y e l l o w 
 
 	 E n d S e l e c t 
 
 	 ' C o n t r o l s   C l e a r T e x t B o x 
 
 	 s 1   =   C L S   +   C R L F   +   " P r e s s   U P   D O W N   a r r o w s   t o   c h a n g e   s p e e d " 
 
 	 s 1   =   s 1   +   C R L F   +   C R L F   +   " F l a s h i n g   s p e e d   =   "   +   v 1 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 L a b e l   I n c r e m e n t 
 
 	 v 1   =   v 1   +   1 
 
 	 I f   v 1   >   9 
 
 	 	 v 1   =   9 
 
 	 E n d I f 
 
 	 G o s u b   S e t F l a s h i n g S p e e d 
 
 R e t u r n 
 
 
 
 L a b e l   D e c r e m e n t 
 
 	 v 1   =   v 1   -   1 
 
 	 I f   v 1   <   0 
 
 	 	 v 1   =   0 
 
 	 E n d I f 
 
 	 G o s u b   S e t F l a s h i n g S p e e d 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 C o n t r o l s   C l o s e T e x t B o x 
 
 E n d 
 
 
 
 
 
 ' W A T C H   v 1 
 
 ' W A T C H   s 1 
 
 ' W A T C H   N o w 
 
 ' W A T C H   P r i n t   N o w 
 
 ' W A T C H   N o w 
 
 